home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / thumna1a / thumb_pr.frm < prev    next >
Text File  |  1998-10-07  |  2KB  |  72 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H00808080&
  4.    Caption         =   "Thum ANI."
  5.    ClientHeight    =   1965
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   1890
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   131
  11.    ScaleMode       =   3  'Pixel
  12.    ScaleWidth      =   126
  13.    StartUpPosition =   3  'Windows Default
  14. End
  15. Attribute VB_Name = "Form1"
  16. Attribute VB_GlobalNameSpace = False
  17. Attribute VB_Creatable = False
  18. Attribute VB_PredeclaredId = True
  19. Attribute VB_Exposed = False
  20. '// Thumb Player thingy [Dont know a technical Description to give it]
  21.  
  22. '// This just simply program that i need fixed cause it seems to have a problem with
  23. '// running only one time when in autorepeat mode and it will no longer work
  24. '// When It recives a Another Roll_film Activation. Needs some serious revision.
  25.  
  26. '// Pretty handy hey and look no ocxs :)
  27. '// All OCX 'S and No Code = some one elses Program!
  28.  
  29. '// For instance did you know your form already has scroll bars
  30. '// Did you know your form is also a TextBox & ListBox &cOmbobox
  31.  
  32. '// Hehe and Cheakout the Project_To Value
  33. '// ill will Spice up the code a bit when i have some time.
  34.  
  35. '// If you wish to employ me contact [Familea@Familea.Screaming.net]
  36. '// Thumb - Nail hehe what a name good one MS .....Doult
  37.  
  38. Private thb1 As New Class1
  39.  
  40. Private Sub Form_Click()
  41. thb1.Roll_Tape 0, 0
  42. End Sub
  43.  
  44. Private Sub Form_Load()
  45. Set thb1.Ownerform = Form1
  46. thb1.Lens_Shape = Custom_
  47. thb1.Pos_Top = 1
  48. thb1.Pos_Height = 140
  49. thb1.Pos_Left = 1
  50. thb1.Pos_Width = Form1.ScaleWidth
  51.  
  52. thb1.Thum_Height = 60                   'The Actual Size of your Thumbnials,play with these when you use your own
  53. thb1.Thum_Width = 60                    'The Actual Size of your thumbnails,play with these when you use your own
  54.  
  55. thb1.Pic_ADD App.Path + "\" + "Tamc.gif"
  56. thb1.Scrolling = Horizontal
  57. thb1.ThumCount = 12
  58. thb1.ProjectTo = 0              'HDC for secondary projection otherwise it just projects to the Desktop
  59.                                 'See ProjectOn Value if you dont want to use this.
  60.                                 
  61.  
  62. thb1.ProjectOn = True
  63. thb1.AutoRepeat = True          'This is not working properly but it works once for some reason.
  64. thb1.Init_ImageData             'Load the Thumbnails that will be used
  65.  
  66.  
  67. End Sub
  68.  
  69. Private Sub Form_Unload(Cancel As Integer)
  70. thb1.Unload_VCR
  71. End Sub
  72.